dev/json test.R

library(rjson)

data <- fromJSON(file = "~/model_log.json")

data_list <- lapply(data, `[`, "jsonPayload")
data_list <- lapply(data, `[`, "message")

df <- dplyr::bind_rows(data_list)


library(jsonlite)

data <- jsonlite::fromJSON("~/model_log.json")
Gulde91/KommaModel documentation built on Aug. 22, 2020, 9:42 p.m.